home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Whatever.AMOS / Whatever.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  1.4 KB  |  57 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10. Screen Open 0,320,256,16,Lowres : Flash Off : Curs Off : Hide : Cls 0
  11. Palette 0,$114,$225,$336,$447,$558,$669,$77A,$88B,$99C,$AAD,$BBE,$CCF,$DDF,$EEF,$FFF
  12. P=7
  13. SL2=3
  14. Dim X(P),Y(P),XS(P),YS(P),C(P)
  15.  
  16. For N=0 To P
  17.  
  18.    GARDELL:
  19.    XS(N)=-3+Rnd(6)
  20.    YS(N)=-3+Rnd(6)
  21.    If XS(N)=0 or YS(N)=0 Then Goto GARDELL
  22.  
  23.    X(N)=Rnd(319)
  24.    Y(N)=Rnd(255)
  25.    C(N)=Rnd(14)+1
  26.  
  27. Next 
  28.  
  29. Repeat 
  30.  
  31.    For N=0 To P
  32.  
  33.       Add X(N),XS(N)
  34.       Add Y(N),YS(N)
  35.       
  36.       Add X(N),-SL2+Rnd(SL2*2)
  37.       Add Y(N),-SL2+Rnd(SL2*2)
  38.       
  39.       Add XS(N),(-1+Rnd(2))
  40.       Add YS(N),(-1+Rnd(2))
  41.       
  42.       If X(N)>319 : X(N)=319 : XS(N)=-XS(N) : C(N)=Rnd(14)+1 : End If 
  43.       If X(N)<0 : X(N)=0 : XS(N)=-XS(N) : C(N)=Rnd(14)+1 : End If 
  44.       If Y(N)>255 : Y(N)=255 : YS(N)=-YS(N) : C(N)=Rnd(14)+1 : End If 
  45.       If Y(N)<0 : Y(N)=0 : YS(N)=-YS(N) : C(N)=Rnd(14)+1 : End If 
  46.  
  47.       PLC=(Point(X(N),Y(N))+C(N))/2
  48.       Ink PLC
  49.       Plot X(N),Y(N)
  50.       
  51.    Next 
  52.    
  53.    Inc CNT
  54.  
  55. Until Key State(69)
  56.  
  57. Edit